
   3 CLEAR ;&(9)=110;BC=135;FC=80;NT=1;BOX 0,0,100,23,3;BOX 0,0,80,19,3;CY=0;CX=-26;PRINT "CRAZY BALL
   4 FOR Z=1TO 30;A=RND (79)-40;B=RND (19)-10;BOX A,B,1,1,3;MU=90;BOX A,B,1,1,3;NEXT Z
   5 CLEAR ;&(9)=19;BC=160;&(0)=160;&(1)=160;FC=15;&(2)=135;&(3)=135;NT=0
  10 CY=24;CX=-40;PRINT "1     OR     2";CY=8;PRINT "   CATCH 22     BLOCKADE";CY=-8;CX=-16;INPUT "INPUT:"X;IF X>2GOTO 5
  15 IF X=1CX=-79;CY=-24;PRINT "GATE SIZE 1-3";CX=-67;CY=-40;INPUT "INPUT:"E
  20 IF X=2CX=0;CY=-24;PRINT "BLOCK SIZE 1-3";CX=21;CY=-40;INPUT "INPUT"E
  25 &(9)=110;FC=135;IF E>3GOTO 5
  30 CLEAR ;CY=16;CX=-28;PRINT "1    OR    2";CY=0;PRINT "SCORE DURING OR AFTER GAME";CY=-16;CX=-16;INPUT "INPUT"P;IF P>2GOTO 30
  35 CLEAR ;B=-79;FOR A=-40TO 40STEP 2;LINE -79,A,4=XY;LINE 78,A,1;LINE B,-40,4=XY;LINE B,40,1;B=B+4;NEXT A
  40 BOX 0,0,86,41,2;B=20;FOR A=1TO 2;BOX 0,B,84,1,1;B=-20;NEXT A;FOR A=-42TO 42STEP 14;LINE A,-20,4=XY;LINE A,20,1;NEXT A
  45 IF X=1K=2;J=1;GOTO 55
  50 FOR A=-42TO 28STEP 14;LINE A,-19,4=XY;LINE A,19,2;NEXT A;K=3;J=2
  55 D=28;B=0;A=40;G=1;H=0;F=0;BOX 0,-34,60,9,2;CY=-34;CX=-20;IF X=1PRINT "CATCH 22";GOTO 60
  58 PRINT "BLOCKADE
  60 BOX D,C,1,E,J;C=&(28)÷7-18;BOX D,C,1,E,K;A=A-1;B=B+RND (5)-3;Y=(B<-19)×3;B=B+Y;Y=(B>19)×3;B=B-Y;IF PX(A,B)GOTO 90
  70 BOX A,B,1,1,1;IF A=DGOSUB 200
  80 BOX A,B,1,1,2;F=F+1;GOTO 60
  90 BOX D,C,1,E,J;C=&(28)÷7-18;BOX D,C,1,E,K;A=A+2;B=B+RND (5)-3;Y=(B<-19)×3;B=B+Y;Y=(B>19)×3;B=B-Y;IF PX(A,B)GOTO 60
 100 BOX A,B,1,1,1;IF A=DGOSUB 200
 110 BOX A,B,1,1,2;F=F+1;GOTO 90
 200 NT=5;FOR Z=1TO 10;BOX A,B,5,E×3,3;FC=BC;MU=X;MU=X;FC=135;NEXT Z;D=D-14;NT=0
 210 H=H+F;@(G)=F;IF A=-42FOR Z=176TO 0STEP -2;&(10)=Z;NEXT Z;CLEAR ;@(7)=H;P=2;GOTO 300
 215 LINE A,-20,4=XY;A=A-1;LINE A,20,1
 220 IF P=1BOX 0,35,140,9,2;CY=35;CX=-63;PRINT "SECTION TIME";U=35;M=22;GOSUB 315
 230 G=G+1;F=0;RETURN 
 300 CY=24;PRINT " GAME TIMES";PRINT "  SECTIONS";PRINT "  1 THRU 6";CY=-24;PRINT "    TOTAL
 305 &(9)=22;&(0)=135;&(1)=135;&(2)=0;&(3)=0;NT=1
 310 M=16;U=24;FOR G=1TO 7
 315 L=@(G)÷60;CX=M;CY=U;IF RM<10PRINT #1,G,#1,".",#3,L,#1,"=",#1,"0",RM
 320 IF RM>9PRINT #1,G,#1,".",#3,L,#1,"=",RM
 330 IF RM=0CX=M;CY=U;PRINT #1,G,#1,".",#3,L,#1,"=",#1,"00"
 340 IF P=1BOX 50,35,2,9,2;BOX 54,35,2,9,2;RETURN 
 350 BOX 44,0,2,80,2;BOX 48,0,2,80,2;U=U-8;NEXT G;FOR Z=0TO 176STEP 2;&(10)=Z;NEXT Z
:RETURN ;RUN 
>